home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / bn_bm.txt < prev    next >
Text File  |  1994-03-01  |  513b  |  13 lines
  1. 1 ' *** OISAC 2 *** Bn -> Bm ***
  2. 10 CLEAR:CLS:PRINTTAB(10)"* bn -> bm *":INPUT"bn ";D,"bm ";A,"nbr ";N$:L=LEN(N$)-1
  3. 15 IF D=10THEN R=VAL(N$):GOTO40
  4. 20 FOR I=0 TO L
  5. 30 C$=MID$(N$,I+1,1):IFASC(C$)>64THEN C=ASC(C$)-55 ELSEC=VAL(C$)
  6. 35 R=R+C*(D^(L-I)):NEXTI:IFA=10THEN  PRINT R" b10":GOTO 10
  7. 40 FORI=1TO10000:H=R MOD(A^I):K=H(A^(I-1)):IFA<11;F=F+(K*10^(I-1)):GOTO  50
  8. 42 IFK<10THEN F$=STR$(K) ELSE F$=CHR$(K+55)
  9. 44 R$=F$+R$
  10. 50 IFH<>R THEN NEXT I
  11. 60 IFA>10THEN PRINTR$" b";A  ELSE PRINT F" b"A
  12. 70 GOTO 10
  13.